home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
H-Graphics
/
(c)hd.d64
/
picture shower.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
806b
|
33 lines
1 REM:?" PJK-SOFTWARE
4 [143]:?" PAUL JANSSEN
7 REM:?" HOKKELENBERGSTR.28
10 [143]:?" 6444 AG BRUNSSUM
13 REM:?" .
16 A[178]A[170]1:[139]A[179]2[167]142
19 I[178]I[170]1
22 [139]I[178]01[167][147]"SA*",8,1
25 [139]I[178]02[167][147]"AU*",8,1
28 [139]I[178]03[167][147]"ST*",8,1
31 [139]I[178]04[167][147]"MI*",8,1
34 [139]I[178]05[167][147]"OR*",8,1
37 [139]I[178]06[167][147]"MI*",8,1
40 [139]I[178]07[167][147]"IN*",8,1
43 [139]I[178]08[167][147]"FA*",8,1
46 [139]I[178]09[167][147]"SE*",8,1
49 [139]I[178]10[167][147]"CH*",8,1
52 [139]I[178]11[167][147]"AUGE.*",8,1
55 [139]I[178]12[167][147]"BA*",8,1
58 [139]I[178]13[167][147]"CH*",8,1
61 [139]I[178]14[167][147]"SAT*",8,1
64 [139]I[178]15[167][147]"KO*",8,1
67 [139]I[178]16[167][147]"AL*",8,1
70 [139]I[178]17[167][147]"TI*",8,1
73 [139]I[178]18[167][147]"AP*",8,1
76 [139]I[178]19[167][147]"YV*",8,1
133 I[178]0:[137]19
142 [151]53272,[194](53272)[176]8
145 [151]53265,[194](53265)[176]32
148 BASE[178]2[172]4096:[129]I[178]BASE[164]BASE[170]7999:[151]I,0:[130]
151 [129]I[178]1024[164]2023:[151]I,1:[130]
154 I[178]0:[137]19